#! /usr/bin/perl

use strict;
use warnings;
use Encode;

my %last_name = (
		"fred" => "flintstone",
		"dino" => "undef",
		"barney" => "rubble",
		"betty" => "rubble",
);

while((my $key, my $value) = each %last_name) {
    print "$key : $value\n";
}

foreach my $key (keys %last_name) {
    print "$key : $last_name{$key}\n"
}
